module Text.XML.WSDL.WsdlRename where
import qualified Data.Map as Map
import Text.XML.Xmlable
import Data.Char

f = {- setNewTypeField "Types" XtElem "schema"
    . -} changeNamesBy (map toLower)
    . changeFieldNames (Map.fromList $ zip ["mName", "pName", "ptName", "oName", "mrMessage"] ["name", "name", "name", "name", "message"])
